IBM InfoROM for OS/2 Beta 1995 January/IBM InfoROM for OS2 Beta 1-1995.ISO/testcert/storage/function/cdrom/rd2048t3.scr

Text File | 1994-09-07 | 698 b | 31 lines

@thread RD2048T3.LOG
@NewAlias cd CDROM.GRA
@IMPORT SYSINFO.TXT
cd LOG $PROMPT="LOGGING RD2048T3"
cd set SECTORSTART=50 SECTORCOUNT=500
cd set ADDRESSMODE=LOGICALBLOCK  BUFFER=ALPHA $BUFFER=ALPHA
cd CDROM_OPEN
cd CDROM_READ2048
cd CLEAR
cd CDROM_READ2048
cd response $PROMPT="COMPARING DIFFERENT SECTORS"
cd set $i=0 $op1=1 $result=$i $kwd=$i BUFFER=BETA BUFFER1=ALPHA \
    BUFFER2=BETA $BUFFER=BETA
cd CDROM_READ2048
cd CLEAR
@loop 100
cd set SECTORSTART=990 SECTORCOUNT=500
cd log $prompt="begin loop"
cd add $op2=$($i)
cd out
cd LOG $PROMPT="READING SECTORS"
cd CDROM_READ2048
cd COMPARE
cd CLEAR
cd log $prompt="end loop"
@endloop
cd CDROM_CLOSE
@flush cd